var i : Integer;

i := 0b11111111111111111111111111111111111111111111111111111111111111111111;